Jak na ODBC pres ADO v Delphi
Otázka od: Pavel Benacek
30. 7. 2004 8:24
Ahoj, potreboval bych pomoci.
Potrebuji programove zjistit a udelat:
1) Zjistit zda jsou nainstalovany ODBC Drivers
2) Zjistit zda je instalovan ovladac Microsoft Jet 4.0
3) Vytvorit databazovy soubor Access (?????.mdb) - kryptovany a pod heslem
4) Pomoci SQL v nem vytvorit tabulky
Dekuji za jakoukoliv pomoc
Odpovedá: Jan Novak
30. 7. 2004 9:32
> 1) Zjistit zda jsou nainstalovany ODBC Drivers
> 2) Zjistit zda je instalovan ovladac Microsoft Jet 4.0
> 3) Vytvorit databazovy soubor Access (?????.mdb) - kryptovany a pod
heslem
> 4) Pomoci SQL v nem vytvorit tabulky
Ja bych rovnou zkusil vytvorit ten .MDB a venoval pozornost vracenym
chybovym kodum. Ovsem neni mi jasne, nac potrebujes to ODBC. Ja na
Access chodim pres KADAO, tomu staci MS Jet.
Odpovedá: Pavel Benacek
30. 7. 2004 9:52
>> 1) Zjistit zda jsou nainstalovany ODBC Drivers
>> 2) Zjistit zda je instalovan ovladac Microsoft Jet 4.0
>> 3) Vytvorit databazovy soubor Access (?????.mdb) - kryptovany a pod
> heslem
>> 4) Pomoci SQL v nem vytvorit tabulky
>
> Ja bych rovnou zkusil vytvorit ten .MDB a venoval pozornost vracenym
> chybovym kodum. Ovsem neni mi jasne, nac potrebujes to ODBC. Ja na
> Access chodim pres KADAO, tomu staci MS Jet.
Ja pouzivam ADO a staci mi taky jen MS Jet, ale jak zjistim, ze je
nainstalovany a jak vytvorim ten soubor?
Odpovedá: Jan Novak
30. 7. 2004 10:43
>> na Access chodim pres KADAO, tomu staci MS Jet.
> Ja pouzivam ADO a staci mi taky jen MS Jet, ale jak zjistim,
> ze je nainstalovany a jak vytvorim ten soubor?
Nevim, jak ADO, ale KADaoDatabase ma na to metodu CreateAccessDatabase
a v KADAO.HLP vidim i priklad na zaheslovanou databazi:
=== cut begin ===
Var KADaoDatabase1 : TKADaoDatabase;
begin
KADaoDatabase1 := TKADaoDatabase.Create(Self);
KADaoDatabase1.UserName:='Admin';
KADaoDatabase1.Password:='SecretWord';
KADaoDatabase1.SystemDatabase:='d:\permissions.mwd';
KADaoDatabase1.DatabasePassword:='AnotherSecretWord';
KADaoDatabase1.DatabaseType:='Access';
KADaoDatabase1.CreateAccessDatabaseE('d:\MyDir\my.mdb',dbLangCzech,'',
'0','','30',False);
Message('OK You create an database!');
KADaoDatabase1.Free;
end;
=== cut end ===
S pritomnosti Jet bych se netrapil, hlaseni odchyti try/except a kod
chyby bych odlaboroval v realu. Ale davat podle kodu konkretni
doporuceni (instalovat Jet, uvolnit misto na disku, prihlasit se do
site...) je dost odvazne.
Odpovedá: Erik Salaj, Winsoft
30. 7. 2004 11:10
> Ja pouzivam ADO a staci mi taky jen MS Jet, ale jak zjistim, ze je
> nainstalovany a jak vytvorim ten soubor?
1. ADO sa da zistit pomocou:
CreateOleObject('ADODB.Connection').Version
Jet Engine asi len testovanim pritomnosti Jet DLLiek
alebo Jet OLEDB providera.
2. mdb vytvoris pomocou ADOX, priklad (ktory ale pouziva nase
komponenty) je na http://www.winsoft.sk/adofaq.htm#Q5.1
Erik
Odpovedá: Pavel Benacek
30. 7. 2004 11:24
On Fri, 30 Jul 2004 11:36:28 +0200, Jan Novak <delfin4@volny.cz> wrote:
>>> na Access chodim pres KADAO, tomu staci MS Jet.
>
>> Ja pouzivam ADO a staci mi taky jen MS Jet, ale jak zjistim,
>> ze je nainstalovany a jak vytvorim ten soubor?
>
> Nevim, jak ADO, ale KADaoDatabase ma na to metodu CreateAccessDatabase
> a v KADAO.HLP vidim i priklad na zaheslovanou databazi:
>
> === cut begin ===
> Var KADaoDatabase1 : TKADaoDatabase;
> begin
> KADaoDatabase1 := TKADaoDatabase.Create(Self);
> KADaoDatabase1.UserName:='Admin';
> KADaoDatabase1.Password:='SecretWord';
> KADaoDatabase1.SystemDatabase:='d:\permissions.mwd';
> KADaoDatabase1.DatabasePassword:='AnotherSecretWord';
> KADaoDatabase1.DatabaseType:='Access';
>
> KADaoDatabase1.CreateAccessDatabaseE('d:\MyDir\my.mdb',dbLangCzech,'',
> '0','','30',False);
> Message('OK You create an database!');
> KADaoDatabase1.Free;
> end;
> === cut end ===
>
> S pritomnosti Jet bych se netrapil, hlaseni odchyti try/except a kod
> chyby bych odlaboroval v realu. Ale davat podle kodu konkretni
> doporuceni (instalovat Jet, uvolnit misto na disku, prihlasit se do
> site...) je dost odvazne.
Kde mohu stahnout komponenty KADAO?